#!/usr/local/bin/perl -w
use strict;
use utf8;
use lib '../lib';

use Data::Dumper;
$Data::Dumper::Deparse = 1;

use NG::Gen::App 'NG::Sys::Loop::Run';

my $app = new NG::Sys::App(logger => "screen");
$app->die_to_logger;
$app->warn_to_logger;

$app->run();

sub on_process {
	my $user = $app->users->get_by_id(1000000000);
	$user->do_user_logout;
}